home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN2.LZH / WAIT.FOR < prev    next >
Encoding:
Text File  |  1988-02-08  |  2.2 KB  |  86 lines
  1.       SUBROUTINE WAIT ( PAUSE )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          WAIT             **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          WAIT
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CA  94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          WAIT FOR A SPECIFIED PERIOD OF TIME BEFORE RETURNING.
  23. C*
  24. C*     METHODOLOGY :
  25. C*          USE THE SPAWN FUNCTION TO ISSUE A WAIT COMMAND.
  26. C*
  27. C*     INPUT ARGUMENTS :
  28. C*          PAUSE - THE TIME (IN SECONDS) TO PAUSE BEFORE RETURNING(INTEGER).
  29. C*
  30. C*     OUTPUT ARGUMENTS :
  31. C*          NONE
  32. C*
  33. C*     INTERNAL WORK AREAS :
  34. C*          STRING - THE COMMAND STRING AS IT IS BUILT.
  35. C*          SHORT,SHORT1 - INTERNAL FILES FOR FORMATTING THE TIME.
  36. C*
  37. C*     COMMON BLOCKS :
  38. C*          NONE
  39. C*
  40. C*     FILE REFERENCES :
  41. C*          NONE
  42. C*
  43. C*     DATA BASE ACCESS :
  44. C*          NONE
  45. C*
  46. C*     SUBPROGRAM REFERENCES :
  47. C*          LIB$SPAWN
  48. C*
  49. C*     ERROR PROCESSING :
  50. C*          NONE
  51. C*
  52. C*     TRANSPORTABILITY LIMITATIONS :
  53. C*          BOTH THE SPAWN ROUTINE AND THE WAIT COMMAND ARE VAX/VMS-SPECIFIC.
  54. C*
  55. C*     ASSUMPTIONS AND RESTRICTIONS :
  56. C*          PAUSE TIME IS PRESENTLY LIMITED TO TEN MINUTES.
  57. C*
  58. C*     LANGUAGE AND COMPILER :
  59. C*          ANSI FORTRAN 77
  60. C*
  61. C*     VERSION AND DATE :
  62. C*          VERSION I.0      4-SEP-84
  63. C*
  64. C*     CHANGE HISTORY :
  65. C*           4-SEP-84    INITIAL VERSION
  66. C*
  67. C***********************************************************************
  68. C*
  69.       CHARACTER *40 STRING
  70.       CHARACTER *2 SHORT, SHORT1
  71.       INTEGER SEC, PAUSE
  72. C
  73.       MIN   = PAUSE/60
  74.       SEC   = PAUSE - 60*MIN
  75.       IF (MIN .GT. 10) MIN = 10
  76.       WRITE(SHORT,900) MIN
  77.       WRITE(SHORT1,900) SEC
  78.       STRING = 'WAIT 00:' // SHORT // ':' // SHORT1
  79.       ISTAT  = LIB$SPAWN ( STRING,,,,,,,,,,, )
  80.       RETURN
  81. 900   FORMAT(I2.2)
  82.       END
  83. C
  84. C---END WAIT
  85. C
  86.